COVID-19
RMarkdown setup
library(knitr)
knitr::opts_chunk$set(cache = TRUE, cache.lazy = FALSE, warning=FALSE,
fig.width=8.5, fig.height=6, autodep=TRUE, echo=FALSE)Grab data
cases = read.csv("https://covid.ourworldindata.org/data/ecdc/total_cases.csv",
stringsAsFactors=FALSE)
cases$date = as.POSIXct(cases$date)
deaths = read.csv("https://covid.ourworldindata.org/data/ecdc/total_deaths.csv",
stringsAsFactors=FALSE)
deaths$date = as.POSIXct(deaths$date)Cumulative deaths and cases
Cumulative deaths
Log-scale
Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)
Linear-scale
Cumulative cases
Log-scale
Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)
Linear-scale
Naive case fatality rates
Log-scale
Linear-scale
Incremental (daily) deaths and cases
Daily deaths
Log-scale
Linear-scale
Daily new cases
Log-scale
Linear-scale
Smoothed daily deaths
Log-scale
Linear scale
Smoothed daily new cases
Log-scale
Linear scale
